GRAPHICS DRAWING COMPILER-PET AND SYM 


CONTENTS 

1. GENERAL 

2. GRAPHICS COMPILER INSTRUCTION SET 

3. ENHANCEMENTS TO ASSM/TED 

4. OPERATIONS 

A. Loading the Graphics Compiler Macro Set 

B. Building the Compiler 

C. Entering a Graphics Program 

D. Compiling 

E. Execution 

5. USEFUL DETAILS 

6. ADDING YOUR OWN MACRO EXTENSIONS 

7. GRAPHICS COMPILER INSTRUCTION SET SUMMARY 

8. COMBINING MACHINE LANGUAGE AND BASIC PROGRAMS 
-PET 

9. GRAPHICS COMPILER SOURCE LISTING 


PAGE 

1 

2 

6 

8 


9 

9 

11 

12 

13 


COPYRIGHT 1979 by J. R. Hall and C. W. Moser 

ALL RIGHTS RESERVED 


r 









COPYRIGHT 1979 BY CARL MOSER 


COPYRIGHT NOTES 


This manual and all object medias (Cassettes, Floppy Disks, etc.) is serial 
numbered and protected by a legitimate copyright. No part of this manual 
may be copied or reproduced without the express written permission of 
the copyright owner, Carl Moser. You may make a backup copy of the 
cassette or floppy disk to protect your copy of this software. It is 
though a Federal crime to make a copy of the manual, cassette, or 
floppy disk for use by anyone other than the individual who purchased 
this software or the individual a company purchased the software for. 

Thus, you are in violation of Federal Copyright Laws if you do one of the 
following: 

- Make a copy of the manual. 

- If you allow someone else to use your copy (or backups) of the 
object media (Cassettes, Floppy Disks, etc.) while you retain a 
copy or are using a copy. 

- If your Company or others purchase one or more copies and more 
individuals use this software than the number purchased. 

- If you allow someone else to do the copying of this material, 
you will be considered as a party to the infringement. 

A reward will be provided for anyone who supplies information which leads to 
the prosecution of parties who violate this copyright. 

We do not presume that you are or will violate copyright laws. Most users 
do not. Some though do, and may not realize the consequences for violation 
of this Federal Law. Penalities and fines can he quite severe for both 
individuals and companies who infringe on this copyright. 

Most importantly, software houses like the one which wrote this software 
have a tremendous investment in this software that can not he fully 
recovered if current illegal copying continues. Also, updates and 
program maintenance will have to he terminated if the return on investment 
is not sufficient. 

Finally, an expressed appreciation is given to the purchaser of this 
software. We hope that you find it a valuable and worthwhile investment. 









of macros 


developed to be used with C. Moser's Macro ASSM/TED to convert the 
assembler into a compiler. The main purpose of this work, is to 
illustrate bv example the anatomy of an easy to understand compiler, 
aS to provide a mechanism whereby the reader could easily develops 
his own compiler be It an industrial control compiler, music c °mpiler, 
or lust a collection of macros which aid program development. Although 
these macros do not provide an extensive graphics drawing language, 
they do lay the ground work for those of. you who would like to aau 

to this language or rewrite it. 

When the graphics drawing macros have been entered Into the ASSM/TED 1 s 
text file, the Macro ASSM/TED is converted into a Graphics drawing 
compiler. Programs can still be written in 6502 assembly only, in the 
<Tr»a-nhic.Pi drawine language only, or a combination of botn. 


macros 
TED is 


s c 


graphics drawing language only, or a combination oi doui. 

For those who are not familiar with the term, a compiler is a program 
which translates statements written in a high level language inco a 
sequence of machine instructions. Since this compiler generates 
cure machine code, no runtime package is required. In tact, alter 
you have sucessfully compiled a program, it can be executed without 
the ASSM/TED and the graphics drawing macros. 


Those who are 
draw images m; 
in BASIC. If 
in the graph!' 
extensions to 


characters per 


Hy into graphics will find their programs will 
times faster" than an equivalent program written 
irable it is possible to write part of your program 
rawing language and the rest in Basic. Several 
Macro ASSM/TED are provided in this document to 
the user to use the compiler. They are: 
and to build a compiler or label library 
or the ^FORMAT command to set the maximum number of 
per label. This is useful especially since the PET 

i characters per line display' , , 


you which contained the Graphics Drawing 
ram which draws a 3 —dimensional box on the 


3) A patch to make ASSM/TED and PET BASIC coexist wiwwui 
each others zero-page variables. 

A cassette was shipped to you which contained the Graphics Drawing 
Macros and an example program which draws a 3-dimensional box on tne 

screen. 

Remember, whether you intend to use this information for graphics 
drawing or for some other macros implementation, the ideas presented, 
apoly' to practically all applications. Macros can represent 
interface between the programmer and assembly language, ®ou 

listing easier to read. Thus coding should be easier, .tor the programmer 
resulting In programs which are more reliable and less expensive to 



2. GRAPHICS COMPILER INSTRUCTION SET 


A description of each instruction in the graphics drawing language 
presented in this part. All argument parameters are either 
or data. If the arguments are data, or addresses which poi 
the operations performed will be on single byte quantities, 
the ADD and SUB instructions perform arithmetic on single b 

Most of the arguments in these instructions are symbolic or 
address quantities. Two instructions, SET and DEFINE, alloi 
store a quantity at a specified location. If the quantity : 
then that.quantity. is stored at the specified location. Bu' 

quantity is symbolic then the lo part of the address is stc 
specified location. 


the specified location. But 


re symbolic or non-symbolic 


s i 


Therefore, the following is us 
quantity: 


ed to distinquish between address and 


labell label2 


G t C 


c or non-symbol! 


#1 #2.. .etc = data quantities 


n T"s c? o 


The Graphics Drawing Compiler instruction set follow 

ADD (labell label2) 

Add the contents at l-abel2 to the contents at labell 
result at labell. This is a one byte add ition operation 

'y "* ™ ‘ * aSOBI,BB,8latW,IB,SlniOI * Basaiaa ® , ® !S!0 * :aBB!! * s ® l3,scs,tiU,1B ^^ 

oiiiUJ. i\ 


naHM tftm w imwmmifm i n i in 




Begin Graphics Drawing Compilation. E 
must have exactly one of the statement 
executable instruction. 


BELL 


ach graphics drawing prograi 
s and it must be the first 






Ring bell or some user provided audible device 
software driver and hardware to accomplish thi 
in BEGIN statement. 


The user may provide 
See BELL subroutine 


The BELL instruction for the SYM, causes 
to beep. 


e on boar 


e device 


"the PET, the BELL instruction enables the serial I/O shift register 

and provides a signal on the CB2 lead (pin M) of the parallel user nort 

*. ... . " '' Ba * ffiM ^ iaM * WBr ' rTrMia ’‘ !a * Bi ' i ' ill '‘ iW ^ 


CLEAR 


Clear screen from current cursor position 
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DO (labell label2) 

Set up do loop to loop until next END instruction 
times the loop is to be performed is contained at 
On completion of the DO loop, go to labell. 
Example: 

DEFINE (J 10) jSet J=10 

DO (EXIT J) ;loop 10 times 

;then go to EXIT 


e number of 


on 


END 


Common errors: 


Entering non-symbolic labels such as DO pEXII 4), not 
terminating with END, making labell point to within a 

DO loop. ___ 


DEFINE (labell #l) 

Store the one byte quantity #1 at location labell 
Example: 

DEFINE (COUNT 4) 


Common errors 


Entering symbolic labels where non-symbolic is required 
and vice versa, not defining the label via 
. DE, . DI, or .DS _____ 


DRAWD 

DRAWL 

DRAWR 

DRAWU 


(labell label2) 


DRAWD- 
DRAWL- 
DR AWR- 
DRAWU- 


Draw line down from current cursor position. 
Draw line left from current cursor position. 
Draw line right from current cursor position 
Draw line up from current cursor position. 


Wh 02 ? 0 * 

labell = location of character to use to draw the line. 
Iabel2 = location of the length of the line. 


Example: 


DEFINE (CHAR 68) 
DEFINE (LENGTH 15) 
DRAWD (CHAR LENGTH) 


END 

Terminates DO loops and/or program. Each DO loop must be terminated 
with its own END, and all programs to be executed via the >RUN command 
should be terminated with END or RTS. 

Common Errors: Too many or too few End statements. 

.. ___ 
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MaBffiC^^^aBH3Sgg8SSSBBBaSHBKMB33gBaB8BaB8agBB88BS^ agaMffi g E58SE8SB8S>MBB^B gSS8BKS^H Ba8MMBS 


aBtBafflHMaB gHaaBBBKiB aSBBfflSI 


GRAPHN 


Graphics Mode No. Exits screen graphics mode. 


GRAPHY 






Graphics Mode Yes. Enters screen graphics mode 


MgaaBM»aB«B 8 ing«BHg«WBaafi«gBB^^ 


HOME 


Home cursor {move 


5 Sm#SS 8 K^m^ 55 JS£KS 5 aBS 233 SEEZSmE^^^ 


left corner of screen) 


:^«S?3t3HaBiEBaiB*8e^®mS5S!SE^KBi®Sr3B58ffi3S&Saa!^i^ 


INPUTB (label!) 


INPUTC (labell) 




mjsGgmmg msmm 


input from keyboard two hex digits and store at 

byte located at labell. 


. . . 


Mnsjorasaz^-rr^g^^Bcratraag^^ 


input from keyboard one ascii character and store 
at labell. 


83BBBasBS«iaiBB«gasi3aBa8Sa8BaBgaEsaaggB>mag8^^ 






3ggHBBasgiSiBaBBBi»asBfflSgmwPB»BBgiifflBBg^^ 


JUMP (labell) 

Jump to labell„ 

I W I f i MMiWW BBHMaaMWWMtt MWlfflr i TIW MMMBHWMMWBMHWMaPaBMBWnMBWBWBIBMM^ <W p 7tam Ti Tf s nBi«a»K«iEn a ?a a B tf > WMM«« p »« ^ & ^ . „ : , T 

mmmmmmmmmmmmmtmmmmmmmMmmmmmnummmKmmmm m mmamHm i n m i ■ r mw ii 'nifi 1-1 »iifc^ a>BBi fl 3 a aBgiM^gattaaM i 8 ^w^«wi M iw fl 8 Baeaa w»fiM i wi M Hw a ar««BK™^^«wi^^ w.,. s,x *<a \^ n- „ mb ewanaMg affHiin i mi'Mii imawaa ass m ■auamrarai - 1 maammmsuBm 

JUMPE 

JUMPGE < (labell label2) 

JUMPL 
JUMPLE 

JUMPN _ 

Jump conditionally to label2 depending on quantity stored at labell 


labell 


JUMPE - Jump if quantity at labell =0 
JUMPG - Jump if quantity at labell >0 
JUMPGE- Jump if quantity at labell >=0 
JUMPL - Jump if quantity at labell <0 
JUMPLE- Jump if quantity at labell <=0 
JUMPN - Jump if quantity at labell xO 


OUTPUTB 

OUTPUTC 

POSABS 


labell 

labell 


gEsn^sHfcae&ssssKaa&BBSK^BasEesiKsi^fsiffi^^ 

S»®aESB 805 aH 2 SS 8 SBmffiSe£fl®ei 8 Sm^ffii 3 mj 3 S^^ 


Output the byte at location labell 

Output the ascii character at location labell. 


K!®*KS®S 0 aa»!Bi«-OT':«e»®»M«BESiHSS»S^ 38 JI®JMS^ 


labell labe!2 






Position cursor at absolute position on screen 
are stored at labell (row) and label2 (column) 


bsolute coordinates 


If you specify labell greater than 23 or label2 greater than 39 , they 
will be respectively divided by 24 and 40 to obtain proper coordinate 


Note 


0 0 is home posi 


xample: Position to colui 


,nd 23 39 is lower right corner 


SETAE (0 18) 
POSABS (fA tB 












f»sor relative to current position. Relative cordlnates art 

abell |row) and label2 (column). 

To position 4 rows down and 12 columns right from current 

position: . 

SETAE (4 12) 

POSREL (fA tB) 

To position 1 row up and 6 columns left form current posit; 

' " SETAE (24-1 40-6) 

POSREL (fA tB) 

tote: To position up and left, you have to incorporate a 

wrap around count. The screen has 24 lines and 40 
columns. If you position right 34 (40-6) then you 
move cursor to far right and back around for complet 
of count. . This feature applies also for positioning 


Print the text at location labell on the screen, ,The text 
up using the .BY pseudo op, and should be terminated with a 

Example: to output the message '’Input your next move?” 

PRINT (MESSIN) 


Not terminating message with 00 byte, placing messa 
text in machine Instruction area of program. __ 


video mode yes. Enters screen reverse video 

f l) store quantity #1 at location TA 
1 fffe) store |l at location fA, #2 at tB 
#1 #2 #3) store #1 at location fA, #2 at TB, 
(#1 #2 #3 #4) store#! ci'^3 .IIL ij.C f4 «jL> Cy ]ff 1 

A. tB, fC, and fD are predefined (via.BE) by 




SUB (labell label2) 

Subtract contents at label2 ; 
at labell. This is a one bvi 


contents at labell and 
btraction operation. 


Common Errors : Entering non-symbolic labels 


VECTUR 

VECTUL 

VECTLR 

VECTLL 

VECTUR 

VECTUL 

VECTLR 

VECTLL 

Where: 
labell 
label2 : 

label3 

label4 

Example 



(labell label2 labels label4) 


Draw vector to upper right 
Draw vector to upper left 
Draw vector to lower right 
Draw vector to lower left 


location of character used to draw the vector 
location of the "rise" quantity of the vector 
location of the "run" quantity of the vector 
location of the length of the vector 


store result 


■■•■■'OWWMWaWMWWBWBWWBTO 


Draw vector to u 
and length of 10 

SETABCD 

VECTUR 


upper right using character "A", 45 degree angle. 


$41 1 1 10 

t A tB fC t D 


Note: rise to run of 1:1 

is 45 degrees. 


mrn i w i niw nrn n m rimi r i r r m i TiTBTamTiiTBiffiii ir wraai i i n ■ i nfwwigmm !■ m niiiiwuirM'i 


ENHANCEMENTS TO ASSM/TED 


As previously mentioned, this document provides three enhancements you 
can make to ASSM/TED. Two of these enhancements provide the following 

commands: 


>BUILD 


MACROS 
LIBRARY 
CLEAR 


- nrm■*"" - . . . — ■■ i T frwmMWTTiTTriririinnrinirrrrTmTi™ . 




>BUILD MACROS n Build into ASSM/TED a set of macros which can be used 
to define a compiler. This locks the macro definitions in the text 
file and its associated labels in the label file. n specifies the line 
number of the last line in the macro set which defines the compiler. 

You will note that if you type SPRINT after building a compiler, the macro 
will not be output. 






- aawwWBW—MMWMdB 
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>BUILD LIBRARY Build a library of labels in ASSM/TED's label file. 

This capability is not required for use with the Graphics Drawing Compiler 
but was provided as an additional feature for those who write programs 
which makes references to your microcomputers ROM entry points and 
special variables. Thus you can enter a program which has nothing 
but label definitions (with the last line a .EN), type > ASSEMBLE, 
then >BUILD LIBRARY, and you have locked these label deTinitions in 
the label file. Now you don't have to look up and define the labels 
for subsequent program assemblies .___—_ 


>BUILD CLEAR Unbuild a previously entered >BU M or >BU L. 


130 ERROR A 130 error message will be output if you try to build a 
set of macros or library when a build is already in effect. This error 
will also occur if you try to unbuild with no build in effect. 


>FORMAT ( SET \ n 

V clear; 

This is an enhancement to an existing ASSM/TED command. The >F0RMAT SET n 
form allows the user to specify the maximum label length. For example, 
the default length is set by ASSM/TED at 10 characters/label. Many 
microcomputers have 40 character/line displays which do not leave very 
much room for the mnemonic and operand to appear on the same line. 

Thus, one could enter >F0RMAT SET 4, get 4 characters per label and 
allow more space for the mnemonic and operand. The maximum allowable 
entry for n is 31._______ 

The third enhancement is a provision for PET BASIC and ASSM/TED to 
coexist simultaneously. You may already know that PET BASIC "hogs" 
practically all of the zero page memory locations, leaving very few for 
other programs to use. Macro ASSM/TED needs 64 zero page locations for 
its own work, and currently both systems "tromp" on each others variables 
resulting in the PET hanging up if you exit ASSM/TED and go to BASIC. 

This can be arbitrated by making ASSM/TED save BASIC's zero page variables 
when ASSM/TED is entered, and restoring these variables and saving its 
own when you exit ASSM/TED. Thus, a zero page swap area is maintained 
at 1E00 - 1EFF. 

This zero page swap idea was courtesy of Bill Seiler - CBM. 

To provide for these enhancements, enter the object code from the 
appropriate part of listing I (la for PET, lb for version 1.0 non-PET, 
and Ic for version 2.0 non-PET). Note: You have version 2.0 if the 
message "C 1979 By C.MOSER" appears on cold start, else you have 
version 1.0. 

After entering this object code, you may want to make a backup copy 
on tape or disc. 


Note: After entering these enhancements, you should do a "cold start" 

entry in ASSM/TED so that various variables can be initialized. 





4. OPERATIONS 

A. Loading the Graphics Compiler Macro Set 

First load the Macro ASSM/TED and begin execution. Allocate 
approximately 6 k for the text file and 2K for the label file. Next, 
insert the supplied cassette in the tape deck and type >GET. 

B. Build the Compiler 

With the graphics macros loaded, type >AS and then >BUILD MACROS 4999. 
The number 4999 is the last line number in the macro set. If you omit 
4999, you will lock into the text file the graphics drawing macros and 
everything after it . To examine what exactly is going on, type >SET 
and notice that the text file and label file starting addresses TTave 
changed. These now point to after the macro set locking the macros In 
the text and label files. 


If you want to unbuild the macros and examine or make modifications, 
type >BUI LD CLEAR. Again type >SET and note that the file boundaries 
are changed back to their original contents„ If you did not alter the 
text file or performed any subsequent assemblies, you can rebuild the 

macros via >BUILD MACROS 4999- 

If you altered the text file or performed an assembly, you will need to 

reassemble before rebuilding (>AS then >BU M 4999). 

If you try to build a compiler already built or unbuild one that is not 

built, the J 30 error will be output. 

C. Creating a Graphics Program 

The supplied cassette contains a program which draws a 3-dimensional box. 
To print this program on the screen, type >PRINT. If you want to enter 
some other program, type >CLEAR and enter your program. (if you type 
>CLEAR when a >BUILD MACROS is in effect, you clear only the text file 

following the macros.) 

Note: Do not change the file boundaries (via >SET) if you have a build 

in effect. 

D. Compiling 

To compile a graphics program, insure that you have a .EN as the last 
line . Then type >ASSEMBLE. it will take a little longer to compile 
a graphics program versus a machine language program because many machine 
language instructions are being generated for each source line. To 
illustrate, compile and list (>AS LIST) and then observe the output. 
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E. Execution 

The easiest way to execute a program is via the >RUN command. You 
should though insure that the last executable statement in your program 
is one of following: END, RTS, or JUMP to warm start in ASSM/TED. 

For example, to run the 3-D Box program, type >RUN BOX. The message 
"INPUT HEIGHT THEN WIDTH" will appear. Respond with hex numbers for the 
height and width of the box to be drawn. Try OA and 18 as an Initial 
test and then experiment with other values. A listing of this program 
is shown in listing 2A for PET and 2B for SYM. 

5. Useful Details of this Language 

a) Each program must contain a BEGIN instruction as the first executable 
statement. 

b) The compiler will define 4 variables (f A, fB, f*C, TD,) which can be 
assigned values thru either of the following: SETA,SETAB,SETABC, 
SETABCD or DEFINE. If you want to use some other variable, you 
will have to assign it storage via the .DE, .DI, or , DS pseudo ops 
and assign values via DEFINE. Note that fA,fB,fC,fD, can be more 
convenient to use in that the SET graphics instruction class can 
assign values to more than one variable at a time. 

c) Always terminate each DO loop with its own END instruction, and do 
not jump into the middle of DO loops. 

d) If an error message other than ]30 occurs, consult the ASSM/TED manual. 

e) Avoid using labels in which the first character is an "T" (example: 
TL00P). The reason is the compiler macros generate a number of labels 
beginning with "T" and if you define one of these In your program, 

a duplicate error message (106) will occur. 

6. ADDING YOUR OWN MACRO EXTENSIONS 

You can add your own macros to this compiler by simply writing and entering 
then as described in the Macro ASSM/TED manual. 

As an example, assume you want to write a game program which moves a car 
aeross the screen. You wi11 need two macros: One to drew the car 
relative to the current cursor position, and another to clear the area 
around the current cursor position. Thus one could draw the car, clear 
it, move the cursor, draw it again, etc. to give the illusion of 
motion. The easiest way to define these macros is to incorporate an exist¬ 
ing one-the PRINT statement. To draw the car, have the PRINT statement 
print it. To clear the car, have the PRINT statement output spaces. 

Thus the macros could be: 



;DRAW CAR 

I! I CAR .MD / 

PRINT (...CAR) 

JMP ...SKIP S 
. ..CAR .BY CD 8 8 8 

...SKIP .ME ._ 

;CLEAR CAR 
H/CLRCAR .MD 

PRINT (...CLR) 
JMP ...SKIP 




^ coc/e {or cursor Jowy i 

S hac cc or cur SOT icf 

y — enfer code 'for curji 


O' 8 8 


V 

8 cu o 


ckeuacWs tokick dtcxujs 

KaJ Vo/ 


. ..CLR .BY ' ' CD 8 8 8 ' « 8 8 8 CU 0 

...SKIP .ME 


Now to draw the car and move it 2 positions, you could write: 

CAR 

CLRCAR 

POSREL (0 1) 

CAR 

CLRCAR. 

POSREL (0 1) 

CAR 


Now., lets examine the generated object code. Note that the entire code 
for these macros will be generated each time you expand the CAR or CLRCAR 
macros. This'will take a lot of memory especially if you use CAR or 

CLRCAR many times. 

To create an efficient compiler, lets make as much, of the macros as 
possible a subroutine which can be called. In this manner, we compile 
a JSR every time a CAR or CLRCAR instruction is written. A good place 
to put this subroutine part of your macro would be in the BEGIN 
definition. Since every graphics drawing program must begin with a 
BEGIN statement, the subroutine code will be generated at the start for 

your macros to JSR to. Now, lets write the subroutines for placement 

in BEGIN. 

@CAR PRINT (@@CAR) 

RTS 

@@CAR .BY '»■*' CD 8 8 8 'O O' 8 8 8 CU 0 

©CLRCAR PRINT (@@CARC) 

RTS 

@@CARC .BY ' • CD 8 8 8 ' ' 8 8 8 CU 0 

And their associated Macro definitions (do not put in the BEGIN macro) 

!! [CAR .MD ‘ “. 

JSR ©CAR 
.ME 

I! (CLRCAR .MD 

JSR @CLRCAR 
.ME 
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Observe that only 3 bytes of code (a JSR) .£11 1be^generated for each use of 
the instructions CAR and CLRCAR since the BEGIN statement expanded 

subroutines. 

As a side note, to move the Car 10 positions to the right, you can use a 
do loop as follows: 

DEFINE (J 10 
DO (EXIT J 
CLRCAR 
CAR 

POSREL (01) 

END 

EXIT 

You can place your macros in either the macro set that buildacompiier 

tt a 4-Vi or nlace them in your graphics drawing program. If yo p 
Ih you? pAg?am, they will not be available for use by other programs. 




GRAPHICS COMPILER INSTRUCTION SET SUMMARY 


ADD (labell label2) 

BEGIN 

BELL 

CLEAR 

DO (labell label2) 
DEFINE (labell #1) 


DRAWD 

DRAWL 

DRAWR 

DRAWU 

END 
GRAPHN 
GRAPHY 
HOME 

INPUTB 

INPUTC 


(labell label2) 


labell=labell+label2 

Begin Compile 
Ring bell 

Clear to end of screen 
loop label2 times then go 
labell— t^I 

Draw line using character 
at labell 


to labell 


labell) 
labell) 


Terminal do loop or program 
Graphics = No 
Graphics = Yes 
Home cursor 

Input byte and store at labell 
Input ascii char, and store at labell 


JUMP (labell) Jump to labell 


JUMPE 

JUMP G 

JUMPGE 

JUMPL 

JUMPLE 

JUMPN 


(labell label2) 


Jump conditionally 
on labell to 
location label2 
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OUTPUTB 

OUTPUTC 


labell 

labell 


Output byte at labell as 2 hex digits 
Output ascii character at label! 


POSABS (labell label2) Position cursor at absolute 

labell (row), label2 (column 


ively at 
(column) 


POSREL (labell label2) Position cursor rela 

labell (row), label2 

PRINT (labell) Print text at labell 


REVRSN 

REVRSY 


Reverse video = No 
Reverse video = Yes 


SETA (#1) 

SETAB (#1 #2) 

SETABC (#1 #2 #3) 
SETABCD (#1 #2 #3 #4) 


Store at location 

tA, t B, tC, TD 


SUB (labell label2) labell 


labell 


label2 


VECTUR 

VECTUL 

VECTLR 

VECTLL 


labell labels label3 label4) 


draw vector 




Where: labell=char. to draw vector 

label2="rise" 

label3="run" 

label4=length 

8. COMBINING MACHINE LANGUAGE AND BASIC PROGRAMS - PET 

BASIC.and machine language (ML) programs can be easily combined to 
function together as one program. They can even be saved and loaded a 
one program from cassette tape. 



The following is a series of guidelines which should be followed when 
combining BASIC and ML programs. These guidelines assume that both 
programs have been debugged and saved on tape. 

1. After saving the BASIC program, type PRINT PEEK (125)*256+PEEK(124 
for old ROMS or PRINT PEEK ( 43 ) *2fj6+PEEK ( 42 ) for new ROMS. The 
number printed is the decimal address of'the end of the BASIC 
program. Convert this decimal number into hex since it will be 
needed when assembling the ML routine. 
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2. Load the ASSM/TED and the graphics compiler P-|ram -ntaining^ur 

assemblYthTiilAprogram 3 so"that Ml be stored in memory Just 
assemuie ui*e y a H bv BASIC (which was calculated 

beyond the last memory location usea uy D 3 3 ■, ^ vrria vr abft, 
k \ a-pio-p fhp wit nroeram has been assembled, type >LABLL. 
above). After the ML Program n program and write down 

Find the starting and ending labels ox youx 1 a address to 

the hex address's for future use. Also, convert the hex address to 

decimal. 

3. Immediately exit the ASSM/TED and monitor and load your BASIC program. 

TyPe: POKE 12 A f [ x/ 256 ')'-(INT9K/256))) *256 

for old ROMS 

POKE A3,(INT(x/256)) 

POKE A2, ((X/2 56 )-(INT(X/25 6 )))*23-6 

for now ROMS 

Where X is the decimal ending address of the ML program. Now SAVE 
the program as you normally would. 

, T . T ~ , rnn are usine a PET with old ROMs, do not assemble and store 

a program below *0770. The PET monitor in RAM is stored there. 

HOW TO TRANSFER BETWEEN BASIC AND YOUR MACHINE LANGUAGE ROUTINE 

The easiest way to go to your ML routine from BASIC is via the SYS 
command (although the USR command may also be used) Whe t f ken 

SYS command m the BASIC portion ot tne f art of the 

because no new characters can be ^f^ Y ° r c ^^,type it like SYS( 00000) . 
BASIC lines. Thus, when writing the SYS commana.yp program 

Aftpr the urograms have been combined, you can Li ^,,, 0 / 00007 ^ * 
and nut the address in the SYS command (for example SYS(02897), But 
remember notto add or delete any character - only change. 


9- 


GRAPHICS COMPILER SOURCE LISTING 
Listing 3A and 3B show the source 


listings for PET and SYM. 


LISTING 1A - Enhancements for Pet versions 


1 F 0 0 

0 0 

00 

0 o 

0 0 

IF 10 

48 

rb 

00 

IF 

IF 2 0 

£ O 

“i if 

C9 

4C 

F0 

1F3 0 

FF 

8 D 

09 

3F 

1F 4 0 

F0 

05 

BO 

03 

1F5 0 

01 

IF 

o y 

10 

1 F6 0 

•~C7 
.j -_l 

8 D 

04 

3F 

1F70 

•*i **"“i 

I— O 

fin 

0 0 

IF 

1 F 8 0 

3F 

Off 

o o 

1 0 

F7 

1F90 

3D 

fin 

06 

IF 

IFfiO 

13 

8 E 

11 

3F 

1FE0 

29 

IF 

85 

4fi 

1F C 0 

no 

F7 

60 

fi2 

1 FD 0 

0 0 

E8 

no 

FI 

1FE0 

m 

85 

4fi 

6 0 

20 


2004 

20 D5 IF 

20B3 

4C 9A IF 

2095 

4C E9 IF 

2374 

A 6 4a 

26 ad 

E3 IF 

2717 

42 55 09 IF 

3051 

20 87 IF 


00 

0 0 

00 

0«j 

00 

20 

no 

56 

AH 

0 0 

3F 

85 

O'*"* 

1— iZL 

C9 

4Ii 

F0 

03 

4C 

CO 

50 

E 0 

iJ5 

82 

08 

£ 0 

42 

23 

EE 

0 0 

IF 

F7 

85 

3D 

8B 

0 0 

3F 

85 

36 

8H 

05 

3F 

4C 

FO 

F6 

8E 

0 0 

IF 

8 0 

4C 

rj 

?CL 

20 

8D 

0 0 

IF 

85 

3E 

6 0 

4C 

5F 

c4 

89 

01 

sn 

13 

3F 

iz! U 

4C 

41 

20 

8 0 

0 0 

E9 

0 0 

nn 

0 0 

IE 

48 

B5 

6 0 

20 

F2 

3E 

8E 

0 0 

C3 

IF 

4C 

88 

2 0 

20 


02 

iT.t' 

C9 

43 

F 0 

61 

O T; 

x - 

fin 

01 

3F 

C»CT 

3E 

H9 23 

2 0 

94 

24 

89 

20 84 

*3 *3 

2 0 

EC 

21 

8 0 

07 

B9 

0 0 

3F 

QQ 

85 

3E 

sn 

01 

op 

85 

uv O 1 “ 

fie. 

3 0 

4f: 

EE 

07 

B9 

01 

IF 

*■■4 ! -4 

0 0 

F0 

0B 

fin 

05 

IF 

0 ®^ 

O ■_> 

2 0 94 

24 

C 0 

cr f } 

E 0 

O 1 •“ 1 

E6 

31 

85 

31 

0 0 0 0 

99 

0 0 

1 F 

C8 

0 0 

O T * 

0 0 

1 p 
x L„ 

x Q 

r_s r_s 

•«4 

IF 2 0 

B7 

IF 


U B 

C3 IF 

4C 

3.F 

2 0 

0 0 


hr! (Jf iY? 











LISTING IB - Enhancements for 


4 O i j 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 r i 

4 01 O 

48 

RB 

0 0 

4 O 

B O 

56 

hB 

4 1 J 8 0 

8 8 

C 9 

4C 

FO 

O 

L._L_ 

C,9 

4p 

4 03 O 

FF 

8 D 

09 

01 

r o 

5 0 

B0 

4 04 U 

F O 

05 

E O 

03 

£ O 

48 

C O 

4 O 5 0 

01 

4 0 

C.* *— 1 

1 O 

F7 

R5 

BB 

4 0 6 0 

D5 

8E 

04 

01 

R5 

By 

y B 

4 O 7 0 

CL 

RB 

0 0 

4 O 

F O 

F6 

8E 

4 08 0 

01 

y y 

1 0 

F7 

4C 


£ 0 

4 09 0 

HB 

ftp 

0 y 

4 O 

85 

BE 

6 0 

4 0 R O 

ft 9 

OB 

85 

Eft 

6 0 

£ O 

'4 <4 

4 0 E 0 

01 

y D 

13 

01 

c U 

81 

31 

4 0 C 0 

41 

£0 

0 0 





• 

2004 

20 

9A 

4o 





20B3 

4c 

A5 

4o 





2374 

A6 

EA 


40 




2717 

42 

55 

09 1 




3051 

20 

87 

4o 






non-Pet version 1.0 


0 0 

0 0 

8 0 

lj CL 

86 

C9 

43 

F 0 

8' 1 

0 0 

01 

OC 

r_i 

im 

RD 

01 

01 

«-»cr 

O —* 

BE 

F O 

03 

4C 

D9 

CL •-* 

cl cl 

94 

c.4 

ft 9 

05 

fl£ 

08 

ft 

i_ 

84 

% Lj O 


EC 

Z : 1 

{._ X 

EE 

0 0 

4 0 

R O 

07 

B9 

0 0 

01 

Q Q 

SB 

0 0 

01 

R5 

EE 

8B 

01 

01 

R5 

05 

01 

4C 

0J 

g» 

£0 

He 

3 O 

4C 

EE 

0 0 

41* 

H 0 

07 

r>q 

mJ « 

01 

4 0 

ftp 

0 0 

RD 

0 0 

4 0 

FO 

uB 

RB 

05 

40 

|—| sc. 
O 1 

4C 

5F 

y 4 

8E 

0 0 

4 0 

£0 

F£ 

r~ 

o t 

8.4 

f 0 

5 0 

E O 

13 

op 

i i 

1 X 

01 

R9 

E6 

B1 

R5 

B1 

‘JU 

IF 

85 

Eft 

4C 


LISTING 1C - Enhancements for 


41J i J 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 O 

0 1 j 

4 01 0 

48 

RB 

0 0 

4 0 

DO 

56 

RB 

4 08 O 


C9 

4C 

F0 

88 

C9 

4B 

4 03 0 

FF 

8B 

09 

01 

C 0 

5 O 

E0 

4 04 0 

F0 

05 

E 0 

0 3 

8 0 

R8 

*2* 'T : 

L~~ *— 1 

4 05 0 

01 

4 0 

r*; 0 
, — 1 

10 

F7 

H5 

BB 

4 06 O 

B 5 

8D 

04 

01 

R5 

B6 

8B 

4 07 0 

£4 

RB 

0 0 

4 0 

F 0 

F6 

8E 

4 08 0 

01 

OO 

| B 0 | 

1 0 

F7 

4C 

CTO 

'mJ 

8 0 

4 09 0 

Ii H 

RD 

06 

4 0 

xz 

O-J 

BE 

60 

4 OR 0 

ft 9 

0B 

85 

ER 

6 0 

0 0 


2018 

20 

9A 

ko 





27A1 

42 

55 

09 40 




3130 

20 

87 

40 






non-Pet version 2.0 


0 0 

0 O 

p f i 

8.... 

9 0 

86 

C9 

43 

F 0 

6 1 

I j O 

01 

Of*-* 

o5 

BB 

ftB 

01 

01 


BE 

F 0 

03 

4C 

39 

£4 

£0 

0B 

£5 

R9 

0 5 

Re 

08 

8 0 

E4 

'in* cl 

(b-« 

8 0 

1£ 

C »-L 

pp 

Em 

0 0 

4 0 

R 0 

07 

B9 

0 0 

01 

‘-4 '—4 

SB 

0 0 

01 

R5 

BE 

8B 

01 

01 

R5 

05 

01 

4C 

SC '"“i 

■J 0 

8 0 

ft£ 

3 0 

4C 

4 E 

0 0 

4 Li 

fl 0 

07 

E9 

01 

4 0 

ft 9 

0 0 

RB 

0 O 

4 0 

F0 

OB 

RB 

05 

4 u 

CL 1 

.j 

4C 

C5 

8.4 

8E 

0 0 

4 0 

8E 

13 

01 


F'fibE 01 


LISTING 2A - PET PROGRAM EXAMPLE WHICH DRAWS A 3- 


OB 15- 49 4E 50 


5 o oo ;- 

PROGRAM EXAMPLE FOLLOW 

5 0 05 ; 


5 01 0 ! 

DRAW 3 DIMENSIONAL BOX 

5 015 

. B A $ 8 0 0 

5 03 0 

.OS 

cr cr ■ 

■ J U C _» !» 


5 03 0 J 

■DE *33A 5 3ND 

5035 K 

.BE S33E 

5040 LEM 

.DE S33C 

5045 CHAR 

.DE *33D 

5050 ONE 

.DE S33E 

5055 CHARI 

.DE *33F 

5 U6* U L-HHR* 

.DE *340 

5 065 CHAR--' 

.DE *341 

5070 LEN1 

.DE *343 

5075 N 

.DE *343 

5 08 0 T3 

.DE *344 

5085 TI 

.DE *345 

5090 BYTE 

.DE *346 

5 095 ; 


5100 BOX 

BEGIN 

51 05 

REVRSN 

5110 

GRAPHY 

5115 

DEFINE (CHARI *3A':> 

513 0 

DEFINE (CHAR,-' *3A> 

5135 

DEFINE '• CHRR+" 88R> 

513 0 

DEFINE (T3 8> 

5135 

DEFINE (TI 13) 

514 0 

DO (EXIT T3> 

5145 

CLEAR 

515 0 

PRINT (MESS 1> 

cr i cr cr 

INPUTB (LEN> 

516 0 

PRINT (MESS3 > 

5165 

INPUTB (LEND 

517 0 

SETAE (10 6> 

5175 

POSABS ( t-A t-B > 

518 0 

SETAE (1 1> 

5185 

VECTIJR (CHAR," tA tE 

519 0 

DRHl.ijR < CHRR+- LEfi 1 > 

5195 

VECTLL (CHAR," tA tE 

53 0 0 

REVRSN 

53 05 

DRAWL (CHAR> LEND 

531 0 

DRAWD (CHARI LEN> 

cr - i cr 

CL 1 • J 

DRAWR (CHAR4- LEND' 

588 0 

DRAWIJ (CHARI LEN> 

5885 

DRAWD (CHARI LEN> 

583 0 

VECTIJR < CHRR -t-R t*E 

cr cr 

■_l (_ ._i 

DRAWIJ (CHARI LEN;' 

534 0 

WAIT (TI) 

5845 

BELL 

585 0 

END 

■JCJJ t I 1 

SETAE (33 0) 

536 0 

POSABS (tA tB> 

5865 

END 

5370 MESS1 

.BY "INPUT HEIGHT? 


CASSETTE 


8 

£> 


LEN) 


ii 






















LISTING 2A 

(cond,) 

OB 1S- 

cr cr 

,_i .j 

54 

2 0 

t i 

hi 

H—*■ 

hi 

I 

43 

45 

49 

0B1E- 

47 

48 

54 

QB21- 

3F 

8 0 

0 0 

QB24- 

OB 

49 

4E 

QE27- 

5 0 

cr cr 

• J ■ J 

54 

0B2A- 

£ 0 

cr -r 
•j r 

49 

QB ED¬ 

44 

54 

48 

GE 3 0- 

3F 

so 

ij ft 


PAGE_.CL 


- PET 


PROGRAM EXAMPLE WHICH DRAWS A 3-D BOX 



BY $ OB 'INPUT WI 


tr •” i”: f j 
• J C. O U 

cr “i i”> cr 
J r O ■ J 


.EH 


LABEL FILE: C 

• = EXTERNAL 1 

,•••. J = 0 3 3 A 

K = 0 3 3 B 

IJ HAP— U 3 3 B 

HE = 03 

,"CHAP+-= 034 0 

C H A R •••■' = 

,'M= 0343 

,-T3 = 034 

•••■'BYTE = 0346 

BDX=OSC 

■rLEN = OS 04 

•t- H = 0 S 0 5 

tA=0307 

t t ™ U o U c 

•tTi= 03 OA 

tE= OS 01 

•t-RVS = 08 OD 

11.1 R T .= 

t-L ■ ■■ S = 0 018 

.■■■' T LIH E = 

t- G E T C H R=F F E 4 

■■'tCLOCF 

•tCLEAR. = US 14 

tFDRMRC 

•t- F □ R M L □ L= 0 3 S 9 

•>' L P C E S - 

+ P 0 S R E L = 03 4F 

t-RVSTE:: 

tGRAPHH=OS75 

tp EVPS'' 

t R E V R 3 N = 0 S 8 6 

•t-DRAWR= 

+DRAWB=OSAS 

t DRAWU : 

t-VECTUL= OSD A 

tVECTLl 

•tF'RMD= 09SE 

+BEEF- 

■r IMPUTE = 0974 

■t l.iJA I T= 

t-1M P1J T C = 0 9 B A 

t XIT = U 

MESS2=0B£4 



U 3 4 1 


l.i.l= OS 1 fi 
0 S £ E 
T = 0 S € 6 
= 0S7B 


-i cr 



!JHRR I — 



1 = 0 


t i = o: 






t= OS 06 
•f-c ^ I j O U S 


•t- F = 0 8 0 C 
t-C ■•'L= 0 028 
.•■''■t-COL = 0 OCfc 
■t HOME= OS OE 
JLPCK1=081D 
TPDSABS= OS 3 A 
tGRAPHY=0S6F 
■t SETRVS= 088 0 
tDRAWL= 0S9C 
■t-VECTUR=08EE 
■tVECTLR=0915 
■t-SC ROLL= 095C 
tDUTPUTB=09A 
MESS1 = OB 15 








LISTING 2B - 


F'fibE 01 

SIM Program Example which draws a 3-D Box. 


ASSEMBLE LIST 


056 

•IT 1 

49 

4E 

1 1 

ir» 

056 

E- 

55 

54 

8 0 

056 

E- 

48 

45 

49 

05? 

1- 

47 

48 

54 

057 

4- 

8 0 

54 

48 

057 

• 

1 

45 

4E 

8 0 

057 

fi- 

CT 

-j (' 

49 

44 


5 0 0 0 

; hr fib] 

3 HIMENSIONfiL BOX 

5 1 ) 1 0 

j 

.HE SI90 

5 08 0 

K 

.HE S191 

5 03 0 

LEh 

.HE SI98 

5 04 0 

CHRP 

.HE SI93 

5 0 5 0 

□HE 

.HE SI94 

5 06 0 

CHIRR I 

.HE SI95 

5 07 0 

CHfiR* 

.HE SI96 

5 08 0 

CHfiP-"' 

.HE SI97 

5 09 0 

LEN1 

.HE SI98 

51 0 0 

511 0 


.Bfi S3 00 

5180 


.03 

514 0 

BOX 

BEG IN 

515 0 


HOME 

516 Li 


CLEfiR 

5 17 0 


BELL 

5 18 0 


PRINT (MESS 1 ) 

519 0 


IMPUTE (LEN> 

5 8 0 0 


BELL 

58 1 0 


PRINT CMESS8) 

588 0 


INPUTS <LEN1> 

58 3 0 


BELL 

584 0 

»* *1 

REVRSY 

585 0 


6 F' fi FH Y 

5 8 61 j 


DEFINE (CHfiRI S55 

jc i‘ U 


DEFINE ( CHfiR.• S6F 

_• f_Ij 

cr Q f , 


DEFINE (CHfiR* S4F 

53 0 0 


SETfiB <18 10) 

5310 


POSHES (tfi VB> 

CT •“*! •” l": 

U 


SETfiB (1 1, 

cr •- fi 

•_J ._i ._i 1_: 


V E U T U R ( L H fi R tfi 

CT ~ A i": 

o *■+ »J 


HRfib.iR (CHfiR* LEN1 

535 0 


VECTLL (CHfiR. Tfi 

536 0 


HRfii.IL (CHfiR* LEN1 

cr •“< -? 
t U 


HR fib. 1 1 1 ( CHfiR I LEN) 

CT “I I*': 

_1 . "l l~T Ij 


HRfib.iR (CHfiR* LEN1 

539 0 


DRfib.ilJ ( CHfiR I LEN) 

54 0 0 


HRfibiH (CHfiR I LEN ) 

5410 


VECTOR (CHfiR.-- tfi 

548 0 


DPfibJU (CHfiRI LEN) 

543 0 

5440 

EXIT 

GRfiPHN 

545 0 


REVPSN 

546 0 


SETfiB (81 1) 

547 0 


POSHES ( tfi t B > 

l t 

CO 

8F 

ir .i 


END 

549 0 

55 0 0 

MESS 1 

.BY "INPUT HEIGHT 


T 

A 





PRbE U2 



LISTING 2B (cond.) - SIM Program Example which draws a 3-D Box. 

057D- 

*j *4 *4 ft o P 


058 0- 

£ 0 0 U 


05 88- 

80 00 5510 MESS8 

.BY •" 0 


558 0 

.EN 

LABEL 

FILE: C = EXTERNAL ] 



019 0 

•■■"K= 01 91 

•-"LEH = 01 98 

CHAR= 0193 

□ N E = 0 194 

.•-CHAR 1 = 0195 

••"'CHAR-*-= 01 96 

-' L* H A R .*•' = ij 197 

••LEN 1 = 0196 

ns o o 

tCHAP=030B 

T LEH= 0 0 L 

tH= 03 on 

t'v'= 03 0E 

t-R= 03 OF 

TB=03 1 0 

TC=031 1 

tli= 0318 

■ T WRT .=8847 

•••"TESC= 0 0 1 B 

.••■-tC--'L= 0 05 0 

tL .'S= 0 0 18 

■■■'T BEEF'=89 78 

•t-HDME= 031 3 

TCLEAR=031E 

t PnSREL = 0389 

■t-PC SABS = 0343 

tGRAPHY=035L 

tGRAPHN=0366 

TREVRSY=0378 

tREVRSN= 037E 

t-DRAWR= 0389 

■t DRAWL = 0394 

tDRAWL=0380 

tIiRAf.ilJ=03AB 

•tVECTUR=03B6 

T'v'ECTUL= 03.D8 

T VECTLL = 03F1 

tVECTLR= 04 0.D 

tPPMD=0486 

X=0468 

p I T = fi ^ cl P 

s»t» C S 8*1 ? 1 <-% ' ”( Ln 

MESS 1 = 0568 

MESS8=0588 


0 0 0 0 i 0584 ? 0564 
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LISTING 3A “ SOURCE MACROS FOR PET GRAPHICS DRAWING COMPILER 


0 0 05 
0 01 0 
0 015 
0 02 0 
0 025 
0 0 3 0 





GRAPHICS COMPILER FOR PET 


♦ ♦♦♦ 




COPYRIGHT 1979 
MOSER $•: J.R. 


HhLL 


0 035 


0 04 0 

; VERSION 

1 0. -1 


0 045 

■ 

n 



0 05 0 

■ 

n 



0 055 

m 

n 



0 06 0 

• • SJHOME 

.ME 


0 065 

t-HOME 

LEA 

itSIS 

0 07 0 


JSR 

T I.JRT . 

0 075 


RTS 


0 03 0 


.ME 


0 085 

■ 

fl 



0 0 9 0 

! ! M'CLEAR 

.ME 


0 095 

■t CLEAR 

LEA 

j «I* Q m Z* 

i p .ji 

01 0 0 


JSR 

t-W RT . 

01 05 


RTS 


011 o 


.ME 


0115 

■ 



012 0 

Sfl=ROW V= 

=COL 


0125 

■ ! S5P0SAES 

.MB 


013 0 

TPOSRES 

JSR 

i'LPCKl 

0135 


LEA 

“S 0B 

014 0 


JSR 

■fl.IRT . 

0145 


LEA 

“$91 

015 0 


JSR 

•t-WRT . 

015 5 


TV A 


016 0 


JSR 

JLPCKS 

0165 


JSR 

tRVSTEST 

017 0 


RTS 


0175 


.ME 


018 0 

■ 

fl 



0135 

;a=roi..j v 

=COL 


019 0 

• • ! .JPOSREL 

.ME 


0195 

•TP OS PEL 

PHA 


0 2 0 0 


LEA 

♦ t-COL 

02 05 


ST A 

•TE 

021 0 


F'LA 


0215 


JSR 

■tFORMROl.J 

022 0 


LEA 

ii'$. 0E 

0225 


JSR 

TI.JRT . 

023 0 


LEA 

it 3; 91 

0235 


JSR 

T I.JRT . 

024 0 


JSR 

•tformcol 

0245 

tRVSTEST 

LEA 

t-RVS 

025 0 


EEC! 

~ + *4- 

0255 


JSR 

•tSETRVS 

026 0 


RTS 


U izl 6 5 


.ME 



027 0 


0 


i 


■ ■ !SFRMRni..J .MB 
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LISTING 3A(cond.) - SOURCE MACROS FOR PET GRAPHICS DRAWING COMPILER 
028 0 t FORMED l.l CLC 


0285 

ADC 

♦ I'Ll ME 

G290 JPLPCK1 

CMP 

«> k iT* ’J 

"• r 1 o 

U295 

ECC 

. . .SKIP 1 

03 0 ft 

SEC 

«S18 

03 05 

■JMP 

JLPCK1 

0310 . k .SKIP1 

ST A 

♦ t-LIME 

O 315 

RTS 


0 3 2 O 

.ME 


0325 ; 



033 0 ! ! ! VFRMCDL 

.ME 


0335 tFORMCDL 

TV A 


034 O 

CLC 


0345 

HDC 

■tE 

0350 SLPCK2 

CMP 

k aT* 

** r I 4 fc— 

r i ~ cr cr 

IJ "■ _> „i 

ECC 

. ..SKIP2 

036 O 

SEC 

*■ «I‘ O O 
-> *■ -I' *„< 

0 3 6 5 

JMP 

5LPCK2 

037 0 . . .SKIP2 

ST A 

♦ t-COL 

i“i •“« -*? cr 

IJ. ,• . j 

RTS 


038 O 

.ME 


0385 ; 



039 0 “ ■ S JGRhPHY 

.ME 


0395 tGRRPHY 

LEA 

“SC 

04 0 0 

ST A 

■I 1 E 6 L 

0 4 O 5 

RTS 


04 1 0 

.ME 


U415 5 



042 0 l ! S9GRRPHN 

.MB 


0425 tGRRPHN 

LEA 

“SE 

043 0 

ST A 

SE84C 

0435 

R T S 


044 0 

.ME 


0445 ; 



045O ! ! ! J'REVRSV 

.ME 


0455 rREVRSY 

LEA 

“SI 

046 0 

ST A 

t-RVS 

0465 tSETRVS 

LEA 

“SI 2 

047 0 

JSR 

T- l.i.l F: T . 

0475 

RTS 


048 0 

.ME 


0485 ; 



049O !! 59REVRSN 

.ME 


0495 tREVRSN 

LEA 

“ 0 

05 0 0 

S T A 

t-RVS 

05 05 

LEA 

“S92 

05 1 0 

JSR 

t-IJ RT . 

0515 

RTS 


052 0 

.ME 


f i cr - cr ■ 



U J C J J 



053 0 S ! ! 5PEMD 

.ME 


0535 tPRhlD 

ST A 

"T* y 

054 0 

iT T 

TH 

tm wan m tunrnin 

Li 5 4 5 

RTS 


055 0 

.ME 


r i cr cr cr * 

U .J -j ? 



056 0 ■ ! S.iiDRRUIR 

.ME 


0 565 T D R H l.ij R 

LEH 

“ 0 0 
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057 0 

LEV W 01 

0575 

JSR. t-PRMB 

058 0 

JSR tVECTLR 

0585 

RTS 

059 0 

.ME 

0595 ; 


0 6 0 0 ! ! ! 9 D RRId L 

.MU 

0 6 0 5 T D R R 1.0 L 

LEV “TL--'S 

061 0 

TYfi 

0615 

LEY “01 

0 6 £ 0 

JSR tPRMB 

0 6 £ 5 

JSR T'v'ECTUL 

063 0 

RTS 

0635 

.ME 

U 6 4 U i* 


0645 ! ! S 9 DRRWD 

.ME 

0650 tDRRWn 

LEfi “01 

0655 

L E v ^ * T L L 

06 6 0 

JSR TPRME 

jj 66 5 

JSR tVECTLR 

U 6 7 U 

RTS 

0675 

.ME 

U 6 b U * 


0685 ! ! ! SEP.fiUU 

.ME 

069 0 TBRfiWU 

LEfi “01 

ij 6 ' 9 5 

LEY -tC-'L 

07 0 0 

JSR TPRME 

07 05 

JSR tVECTUR 

071 0 

RTS 

0715 

.ME 

078 0 ; 


0785 ! ! ! S'VECTUR 

.ME 

0730 tVECTUR 

LEX TLEN 

IJ r o j 

EEQ . . .EX'v'UR 

074 0 . ..LPVUR 

LEfi TCHfiR 

0745 

JSR t WRT . 

075 0 

LEY t-H 

0755 

EEY 

ij 7 6 U 

LEfi “TL.-'S 

0765 

SEC 

077 0 

S E C T V 

0775 

JSR TPOSREL 

0 7 3 0 

HEX 

07 8 5 

ENE _LPVUR 

0790 . . . EX'v'UR 

RTS 

0795 

.ME 


03 0 0 
03 05 
031 0 
0315 
032 0 
08 c 5 
ftp,3 0 


m 

n 


• ■ ! SVECTUL 
■t'v'ECTUL 

...LPVUL 


.MD 

LUX 

EEQ 


TLEN 


. EXVUL 


LEfi tCHfiR 
JSR t l'.IRT . 
LDR ' ’t'L-L. 


0835 
084 0 
0845 
085 0 


GUI- 

SEC t-H 
TRY 

LDR -tL.-S 
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086 0 



SEC 

T V 

0865 



JSR 

TPDSREL 

0 8 7 0 



HEX 


0875 



BHF 

AJ 9 1 L-». 

. . . LF’VUL 

088 0 

as m 

. EXVIJL 

P J V 


8 ™I “i GT 

IJ !™I „_J 



MF 

0 i i L> 


089 0 

ta 

% 




0895 

i i 

$ 8 £ 

! ■j.'VEL'TLL 

.MD 


09 0 0 

4 8 
s T a a a 

ECTLL 

i v 

L.U. JL* a° t 

TLEN 

09 05 



EEC! 

. . . EXVLL 

091 0 

si ea 

. LF’VLL 

LDfl 

•tCHRR 

0915 



JSR 

fl.i.IRT . 

098 0 



LDR 

-tC--'L 

0985 



CLC 


093 0 



SBC 

TH 

0935 



TRY 


094 0 



LDR 

■tV 

0945 



JSR 

■tPDSREL 

095 0 



DEX 


0 9 5 5 



SHE 

. . . LF'VLL 

096 0 

03 © 

. E X V L L 

R f '.\ 


0965 



hi C 

» Pit 


0 9 7 0 

§8 

ft 




0975 

1 i 

K) fj 

5 SVECTLE 

.nn 


098 0 

T v 

ECTLR 

f TV:-' 

t-LEN 

0985 



BEG! 

. . . EXVIJL 

099 0 

@ m 

. LF'VLP 

LDH 

TCHHR 

! 1 9 '9 5 



JSR 

T W RT . 

I 0 0 0 



LEY 

TH 

1 0 05 



HEY 


i o i u 



LDR 

t V 

1015 



JSR 

TPDSREL 

1 03 0 



DEX 


1 035 



EME 

. . . LPVLR 

1 0 3 0 

b m 

. P *, i* 1 P 

eS Kaon t l 8 &MW S *» 

RTS 


1 035 

m 

«5 




1 04 0 



. ME 


1 045 

a 

J 




1 05 0 

1 I 

B SB 

! S'EEEP 

.MD 


1 055 

a. t** cr cr 

T L.»ft r s 

« Sana Wi 9 

LDR 

“$i o 

1 06 0 



STR 

S'Eb4E 

1 065 



LDH 

j “ •!* ■“> O 

•• r -X# 

1 07 0 



STR 

$E84fl 

1 075 



LDR 

s-EFE 

1 08 0 



■C TCi 
i ri 

■I* E o 4 o 

1 085 



LDY 

Jf Mf-CC 
■a f , Js „_! 

1 09 0 

83 & 

.DEI 

lux 

j s. tT» sr er 

i r .X« .„»-J 

1 095 

ra a 

* D E L Ft Y 

PHR 
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1150 

.ME 


1155 ; 

1160 !!! 9 IMPUTE 

.MB 


1165 rIMPUTE 

JSR 

...NIBBLE 

1170 

CLC 


1175 

POL 

R 

11S 0 

POL 

fi 

1185 

POL 

R 

119 0 

POL 

R 

1195 

STR 

•t-F 

1 £ 0 0 

JSR 

.. .NIBBLE 

18 05 

□PR 

t-F 

1 £ 1 0 

RTS 


1£15 ...NIBBLE 

JSR 

•f INPUTS 

1££0 

CMP 

j i. iT- - j Q 

“■ r -i* n 

1225 

BCC 

. . .SKIP 

1 £3 0 

RDC 

«• *r fj c* 

i r -I* IJ »j 

1235 ...SKIP 

RNB 

“J OF 

1 £4 0 

RTS 


1 £45 

.ME 


1 £5 o ; 

1 £55 ■■'S'DUTPTB 

.MB 


I86 0 t-0IJTPUTS 

F'HR 


1865 

POP 

H 

187 0 

POP 

H 

1875 

POP 

H 

188 0 

POP 

H 

1885 

JSR 

. . -NIB 

189 0 

PLR 


1895 ...NIB 

RNB 

^8 OF 

13 0 0 

CMP 

-J;0H 

13 0 5 

BCC 

. . .PASS 

131 0 

ABC 

06 

1315 ■ . .PH 3 3 

CLC 


138 0 

RBC 

-830 

1385 

JSR 

•H.JRT . 

133 0 

RTS 


1 O O ■ J 

.ME 


134 0 ; 

1345 • ! ! S'INPUTS 

.MB 


1350 tlNPUTC 

JSR 

■T GETS HR 

1355 

CMP 

0 

136 0 

BEQ 

TINPIJTC 

1365 

JSR 

•HJRT . 

137 0 

RTS 


1375 

.ME 


138 0 ; 

1385 ! ! M'UAIT 

.MB 


139 0 -t-l.iJRIT 

LBR 

- 0 

1395 

STR 

t CLOCK 0 

14 0 0 

LBR 

** r j, .J 

1405 . . .I.I.IRL0P 

CMP 

-f- CLOCK 0 

1410 

BNE 

. . . WALOP 

1415 

BEK 


148 0 

BNE 

HJHlT 

1485 

RTS 


143 0 

.ME 


1435 ; 
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144 0 

* I IDD 

.nn 

<.. .ex no 

1445 


Llifi 

B S’ S L 

145 0 


BEG! 

. . . EXDD1 

1455 

...LPDD 

5 SR 

b. .doloop 

146 0 


DEC 

* . S L 

1465 


ENE 

. * - LPDD 

147 0 

S® B B E 8"'°! jj Q 1 

3MP 

pyrin 

® s e Lt il'U 

I H f -J 

a o D D L D D P 



1 *4 y u 




1485 

i 1 ICWT) 

a 68 b L. I 1 L' 

.MB 


1495 


.ME 


i 5 0 0 

m 

jr 



15 05 

1 1 i “• I I p 

a i® a ,0 

.nn 

< . ® .LflED 

151 0 


LDfl 

SHE L H E D 

1515 


SEC 


152 0 


SBC 

B B B D 

15 c' 5 


STfl 

kbs L H B D 


1530 .ME 


i K" “s er » 

1 J.j.J ? 



154 0 l ! !hDD 

.m 

§ -. . . . L H B U 

1545 

LDfl 

a as a L H jt s U 

155 0 

CLC 


1555 

HDC 

a ts © U 

156 0 

STfl 

> a ■ L H B U 

1565 

.ME 


157 0 ; 



1575 ! ! ’DEFINE 

.nn 

< b a .LBEF 

158 0 

-LDfl 

41 A. @ I 

as a a V 

1585 

S T H 

. ■ .LIEF' 

159 0 

.ME 


1595 ; 



16 00 i l ! JUMPE 

.MD 

< . . .LIES! 

16 05 

LDfl 

. . .LTEST 

161 0 

SHE 

.. .SKJE 

1615 

JMP 

. . . L JMPE 

168 0 . . . SKJE 

. ME 


1 •“ ET a 

| n j_ ._J ;s 



163 0 ! ! ! JIJMPN 

.fin 

( . . .LIES! 

1635 

LDfl 

... L i ix. *x T 

164 0 

EEC! 

... -X- k J f "1 

1645 

JMP 

, . . LJMPN 

165 0 . . . SK-JN 

.ME 


16' 5 5 ? 



166 0 ! ! ‘ JIJMF'L 

.MD 

< . . .LIES! 

16 6 5 

LDfl 

... i— T E ’X a T 

167 0 

EPL 

“I-- - si 

» m s 1 ' , ° 9 

1675 

JMP 

• ■ a LJMPL 

1680 .. .SKJL 

.ME 


1685 ; 



1690 1!!JUMPG 

-MD 

< .. .LIES! 

1695 

LDfl 

■ . a L T E S T 

17 0 0 

EMI 

a sa as -J* k • J LU 

1705 

BEG! 

s.** 5 iT 

m m ® w 1"". sJ* CU 

1710 

JMP 

b a aLJMP b 

1 s'” 1 ... X- k 8 b 

.ME 


17c 0 ? 



1725 ! ! ! JUMPGE 

.MD 

\ s m a L 1 t i T 
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1730 

1735 

174 0 

1745 . . .SKJbE 
1750 ; 

• ! ! JIJMPLE 


1755 
1760 
1765 
177 0 
1775 
173 0 
1735 
1790 
1795 
18 0 0 
13 05 
131 0 
1315 
183 0 


oos 

l_ 


183 0 
1835 

184 0 
1845 

185 0 
1855 

186 0 
1865 

187 0 
l y I -- 5 

188 0 
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- SOURCE MACROS FOR PET 
LDR . . .LTEST 
EMI ...SKJbE 

JMP _LJMPGE 

.ME 


GRAPHICS DRAWING COMPILER 


. SKJLE1 
.SKJLE2 

! J'DF'RM 


.MB < 
LDR . 
EEQ . 
EF'L . 
JMP . 
.ME 


. .LTEST 
.LTEST 
. SK JLE1 
. SKJLE£ 
.LJMF'LE 


LJMF'LE> 


■ • ! S'v'PRM 


.mb <:...c 

LDR_C 

STR t-CHRR 
LDR . . .L 
STR t-LEN 
.ME 

.MB C...C 
LDR . • . L 
STR t-CHRR 
LDR .■.V 
STR TV 
LDR . . .H 
STR TH 
LDR . . ■ L 
STR TLEN 
.ME 


. L 


a s i i s 


!•*9SCROLL .MD 


1 J 

■t SCR DLL 

LDR 

«$1 

189 0 


LDY 

“$0 

1895 


JSR 

t-PO 

19 0 0 


LDR 

-t-R 

19 05 


STR 

-t-H 

191 0 


LDR 

«$1 

1915 

. . .AGAIN 

JSR 

-t LI R 

19£0 


DEC 

-t-H 


1985 
1930 
1935 
194 0 5 

1945 !!SHOME 
1950 
1955 

196 0 ; 

1965 !!SCLERR 

197 0 
1975 

198 0 5 

1985 !!SPDSR 

199 0 
1995 
£ 0 0 0 
£ 0 05 
£ 01 0 ; 

£015 ! ! SPQSR 


EME 

RTS 

.ME 


. . AbRI 


•!SPOSREL 


.MD 

JSR tHQME 
.ME 

.MD 

JSR TCLEAR 
.ME 

. MD < ... J - 
LDR . . . J 
LDY ...K 
JSR tPOSREL 
.ME 


I % 


!■SPDSRBS 


.MD C 


■ ■ ■ i“i 


a m m 










£ 0 £ 0 
£ 025 
£ 03 0 


i •“ er 

! • j . 8 


£04 0 
d 0*45 
£ 05 0 
£ 055 
£ 0 6 0 
£ 065 
£ 07 0 
£075 


! I!-! 




£ 09 0 
£ 095 
£ 1 0 0 


££ 05 
££ 1 0 
ccl J 


•"a •“ sr 
k- L- »• J 

££4 0 

c. cl 4 
£25 0 


CL CL - J. J 

ppg n 


.2 * * a! <£». 

1 d to, J 


££? 0 
i d d 7 5 

ooo fi 

fL_. L_ SB 8J 


O O ~i C" 
Li, O * 8 


££9 0 

O O Q c 

L™. k_» «.* 

£3 0 f! 


• s n Er 

” ." 1 I . 8 
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Llift . . .X 
LDY „ . „Y 
JSR -f-POSAES 
.ME 

. M B 

JSR tGRAPHY 
.ME 


MB 


■t GRAPH f- 


IR E V R 


.MB 

JSR 

.ME 


TREVRSi 


£ 1 05 

1 1 IDfi iri-r-K! 

K t V K O -11 

.MB 

£ 11 0 


JSR -f-REVRSH 

£115 


.ME 

£ 1 £ 0 

a 


■”» 1 o ^ 

ILwati «JL iLn»» “no®* 

S \ “BELL 

.MB 

O 1 # 3 fi 


JSR t-BEEP 

*3 “| isr 

X "®« s *3 


.ME 

£ 14 0 

65 

K§ 


£145 

I ! ! BR FH... 1 R 

M ri ?■’ j” 1 ' 

£ 15 0 


9 BPRM < . . ,C . . .L> 

£155 


JSR tBRFH.'.IR 

£ 16 0 


. ME 

£165 

©5 

3 


£ 17 0 

5 ! ! BRAWL 

.MB ( . . .C ...Li 

£175 


9 BPRM ( . .C . . .Li 

£ 18 0 


JSR tBRAWL 

•” i “! sr 
€1 1 O • J 


.ME 

£ 19 0 

B 

5 f 


£ 195 

! 5 ! BRfiWB 

M T\ { p 1 ‘I 

a s S A» s '.ana *„• ess L „• 


£U ! i IBRAWL 


S'BPRM <... (I 
JSR f-BRfiWB 
.ME 


.MB 
9 DPR 
JSR 
.ME 


VECTIJR 


8 © & S3 

J O D M 


! VECTUL 


JSR tVECTIJR 
.ME 

-MB C...C . 
9VPRM C . . . C 
JSR tVECTUL 
.ME 

.MB <...C . 
9VPRM < . . .C 
JSR T'v'ECTLL 
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231 0 

- ^OURCE MACROS 

3 3 1 er 
lOi 

• 

4 


OOO fi 
i_ „■ i__ u 

■!!VECTLR 

M T) ( r 

0 1 1 JL* 1 •• * 0 0 m ® 

" •“» er 

L_ 


9VPRM <.. .c . 

£33 0 


•JSR TVECTLR 

cr 

i_ _• 0 ■_* 

£34 0 

0 

4 

.ME 

£345 

! ! !SCROLL 

.MB 

£35 0 


JSR T-SCROLL 

O er er 

i ._• ._» ..i 

£36 0 

a 

* 

.ME 

O “• £ cr, 

1 

! ! • IMPUTE 

.MB >:!... R> 

o o “7 n 
i_ i u 


JSR tIMPUTE 

03"’c 
|_ _• | •_! 


STA . ..R 

ooo n 

t_ i j 

o o o 

I .3 

• 

4 

.ME 

£390 

• • ! I,.l AIT 

.MB (...III) 

2395 


LEX ...1,1 

24 00 


JSR tl.i.lAIT 

24 05 
2410 

0 

4 

.ME 

2415 

! ! •□UTPIJTB 

.MB <:...£> 

242 0 


LBA ...B 

~ a •- cr 

CtC-J 


JSR t□UTPUTB 

243 0 
2435 

0 

4 

.ME 

244 0 

! ! ! INPIJTC 

.MB . . .C> 

2445 


JSR t-INPIJTC 

245 0 


STA ...C 

c!455 
c4fc U 

0 

4 

.ME 

2465 

! ! !OUTPUTC 

• MB . . .C> 

247 0 


LBA ...L 

.4 -? cr 
CL *4 ! •_> 


JSR t'l.i.lRT . 

248 0 

- .4 cr 
CL H C« •„> 

0 

4 

.ME 

249 0 

■ ! 'BEGIN 

.MB 

2495 


JMP ...BEG 

25 0 0 

TCHAR 

.BS 1 

25 05 

t-LEH 

.BS 1 

251 0 

t-H 

.BS 1 

- cr 4 cr 
CL 1 

tV 

.BS 1 

“cr - i-i 
CL J CL U 

•tfl 

.BS 1 

■“« cr -1 cr 
CL J CL 

TB 

• BS 1 

£53 0 

tC 

.BS 1 

”1 cr ”1 cr 
CL 3. J 

tn 

.BS 1 

254 0 

TE 

.BS 1 

™icr .4 er 

c. • j *4 

•TF 

.BS 1 

•“ cr cr 

CL J J U 

t-RVS 

.BS 1 

cr cr cr 
C. J •_> J 

t-1,.! RT . 

.BE SFFB2 

£56 0 

•tC-L 

.BE 4 0 

£5 6'5 

tL/S 

.BE 24 

£570 

•tL I HE 

.BE SB8 

£575 

•fCDL 

.BE SU6 

£58 0 

TGETCHR 

.BE SFFE4 

er ~> er 
C. ■_* •_* •_* 

tCLOCK0 

.BE S8F 

£59 0 

3 cr q er 

0 

4 

5HDME 


0 © 


» gfi as a 


OLD ROMS, CHANGE US TO 
OLD ROMS, CHANGE C6 TO 


OLD ROMS, CHANGE 


TO 282 






PfiGE 10 


LIST 





S6 0 0 


O 1 COO 

<r L» LbriK 

26 05 


5FRMRDI...I 

261 0 


3FRMCDL 

2615 


S'F’OSRBS 

£620 


5PDSREL 

d 6 d 5 


S'GRRPHY 

263 0 


•»'bRRF‘HH 

d€> 5 5 


S'REVRSY 

264 0 


S'RE VRSM 

2645 


S'DRRWR 

265 0 


S'DRAWL 

2655 


J'DRhWD 

266 u 


S'DRAWU 

2665 


S'VECTUR 

267 0 


S'VECTUL 

•I'l: “7*=: 

1™. LJ 5 •_» 


S'VECTLL 

26S 0 


•I'VECTLR 

»•" 1 “ cr 
i™ O 


S'F'RMD 

2 6 9 0 


S'BEEP 

2695 


9 SC ROLL 

2 7 0 0 


S'IMPUTE 

C. s' U • J 


S'UR IT 

£71 0 


S'OUTF'TB 

CL s I ,J 


S'lMPUTC 

2 7 2 0 

a 


•" cr 

CL s' CL •_» 

F 8 13°“ a 

r r 1 ”" K "‘'S 

E9 B 65 IL* 

MF 

a § I L» w , 

2 7 3 U 

@ 


•“ “7 •” cr 

CL i -L> •_< 

1 i 1 V* p T Cf 

a gs a J* L ! 1 1 

a M D 5 ’. . a . H •* 

£74 0 


LDfl -. a a fl 

c. s' *4 ■ j 


3 T H t • H 

■" "7C |“s 

C. s' -J U 


.ME 


© 


C. s' ■ J • J 



2 76 0 

1 1 i ‘piup 

* a 0 IL—. S 8 1 -L. 1 

o \ f I® a m m s9 s$ 

■“ “7 7 C 

C. s' t* • J 


LDft “,. a H 

2 7 7 0 


51 ft 't'H 

CL s' s' 


LDfl “...E 

2 7 8 0 


SIR tB 

•”t »~i ET 

CL s' O •_» 


a ME 

279 0 

0 

q 


•“» “?QC 

cl i y j 

! ! SSETRBC 

.MB » » 9 fl 

2 *3 0 U 


'3 E T fl B . « . H 

""1 f: ET 

S— »_,« U 


LDH Sr S 93 » L 

•”» i“« 4 §"1 

S— 1 U 


Sift tc 

-f cr 
t„ O i •„> 


B ME 

2 8 2 0 



cr 

L_ S— •J 

* « «•£• E 1 fl £ L- D 

■ M1J 5 -. . . • fl 

O O ft 


• I-’ E T H B L‘ . . . 

“t •“ cr 

!»™ s .„' •_! 


L D fl sj 0 „ „ Ij 

2 2:4 0 


SIR tD 

2345 


ffl ME 

285 0 

E8 

«■ 


•"" 1 cr cr 

L™. 5 Z S -_J -«J 

!1“PRINT ' 

. MD ( ..»M> 

286 0 


LBV Sr 0 

OOZ! cr 

1™. O - J 

I ppp 

S3 a a L*. IS s *. 

LDfl , s J'l 7 t 

•I* C* “7 il 

s^, s ._ s 9 y 


B E V. a m « E X P R 

•“ «”• sr 

1 — *_* s' -J 


JSR tWRT . 

■jC'O n 

L~ 8 ™s ij SJ 


I MY 

£885 


£ i '1E ® e@ ® L. R 7 

£89 0 

p v p p 

gs © a 8 *8 * 1 •. 

• ME 

•”» «"“« Q cr 
r “1 ? 

Bracsss* S*« «* 

58 


£ 9 0 0 


PH 

£3 1 I 





© & ^ 


a a 









PAGE 01 

LISTING 3B - Source Macros for Graphics Drawing Compiler 


>ASSEMBLE LIST 


0 o 0 0 

;♦♦♦ GRAPHICS DRAWING 

00 01 

Ml 

* 


0 01 0 

• ! ! S'HOME . MB 


ooso 

THOME LDA 

ff-t ESC 

0 03 0 

JSR 

■tWRT . 

004 0 

LDA 

Jfc / LI 

** n 

0 05 0 

JSR 

TWRT . 

0 06 0 

RTS 


0 07 0 

.ME 


0 080 



0090 

SM9CLEAR .MB 


01 0 0 

TCLEAR LDA 

if T ESC 

011 0 

JSR 

TWRT . 

01 £ 0 

LDA 

it y J 

013 0 

JSR 

tWRT . 

014 0 

RTS 


015 0 

.ME 


016 0 



017 0 

;a=rdw y=col 


018 0 

SH3PDSREL .MB 


019 0 

tPGSREL clc 


02 00 

ADC 

4 1. 

If 

021 0 

F‘HA 


022 0 

LDA 

if TESC 

0230 

JSR 

•t WRT . 

024 0 

LDA 

a * 

n p t 

0250 

JSR 

•t WRT . 

026 0 

F'LA 


0270 

JSR 

tWRT . 

0280 

TYA 


0290 

CLC 


03 0 0 

ABC 

jl y 
t r 

0 31 0 

JSR 

TWRT . 

0320 

RTS 


0330 

.ME 


0340 



035 0 

;a=row y=col 


0360 

! ! S5P0SRBS .MB 


0370 

•t-POSAES CLC 


038 0 

ABC 

.1 & i 0 * 

•t r 

0390 

F'HA 


04 00 

LDA 

if TESC 

041 0 

JSR 

TWRT . 

0420 

LDA 
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